current_prolog_flag(argv,L),nth1(2,L,FILE), [FILE].
current_prolog_flag(argv,L),nth1(3,L,FILE), [FILE].
current_prolog_flag(argv,L),nth1(4,L,ACTOR), assert(actorl([ACTOR])).
['framework/ca.pl'].
['framework/printmessages.pl'].

not(current_predicate(actorl/1)), findall(A,der(A,_),LSTA), list_to_set(LSTA,SETA), assert(actorl(SETA)).

assert(detect(a,a)).

actorl(AL),itdetect(1,AL).

actorl(SETA),forall(member(A,SETA),(pcontexts(A,C),linkablepart(A,C,CP),
                                    forall(member(M,CP),(print('link('),printt(A),print(','),sort(M,MS),printt(MS),print(').\n')))
                                   )).
